home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / moon.bas < prev    next >
BASIC Source File  |  1991-10-18  |  8KB  |  129 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010
  2. 1000 '
  3. 1010 '  M-013　（Ｃ）
  4. 1020 '  MOON ON LAKE
  5. 1030 '
  6. 1040 '
  7. 1050 SCREEN@ 0:PLAY OFF:BGM 1
  8. 1060 FOR I=0 TO 13:PART I,I:NEXT:GOSUB *TITLE
  9. 1070 LOAD@"Q:\FJ\FM\FMP.FMB":LOAD@"Q:\FJ\PCM\RYM_ALL4.PMB"
  10. 1080 T$="T132Q8U0%CL16"
  11. 1090 FMG$="@110O4V8L16":FMP$="@30V10L2O5Q6":FMF$="@88V6U40L8O5Q8"
  12. 1100 FA1$="R4CCCCRCRCC8CR":FB1$="R4AAAARARAA8AR":FC1$="R4EEEEREREE8ER"
  13. 1110 FA2$="<"+FB1$+">":FB2$="R4FFFFRFRFF8FR":FC2$=FA1$
  14. 1120 DM1$="L4C>F<C>F8<C8":DM2$="L16C8.CC8CCR4.>F8<"
  15. 1130 DM3$="L16C8.C>]F8[<CCRCRC>]F4[<"
  16. 1140 H1$="CCCCCCCCCCCCCCCC":H2$="C32C32CCCCCCCCCCCC32C32C32C32@39C8@40"
  17. 1150 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  18. 1160 PLAY "@40O4V14",FMG$,FMG$,FMG$,FMP$,FMF$,"@9O2V10Q8L16","@2O1V10L4","@1O6V7L1"
  19. 1170 PLAY H1$,FA1$,FB1$,FC1$,,,"E1&"
  20. 1180 PLAY H1$,FA1$,FB1$,FC1$,,,"E1"
  21. 1190 PLAY H1$,FA2$,FB2$,FC2$,,,"C1&"
  22. 1200 PLAY H1$,FA2$,FB2$,FC2$,,,"C1","R2C8C16C16>F8<C8"
  23. 1210 PLAY H1$,FA1$,FB1$,FC1$,,,"E1&",DM1$
  24. 1220 PLAY H1$,FA1$,FB1$,FC1$,,,"E1",DM1$
  25. 1230 PLAY H1$,FA2$,FB2$,FC2$,,,"C1&",DM1$
  26. 1240 PLAY H1$,FA2$,FB2$,FC2$,,,"C1","C>F<C8C16C16>F8<C8"
  27. 1250 PLAY H1$,FA1$,FB1$,FC1$,,,"E1&",DM1$
  28. 1260 PLAY H1$,FA1$,FB1$,FC1$,,,"E1",DM1$
  29. 1270 PLAY H1$,FA2$,FB2$,FC2$,,,"C1&",DM1$
  30. 1280 PLAY H1$,FA2$,FB2$,FC2$,,,"C1","C>F<C8>F16F16F8F8<"
  31. 1290 PLAY H1$,"<A1&","F1&","D1&",,,"D1&","CCCC"
  32. 1300 PLAY "R1","A1>","F1","D1",,,"D1","CRC8C16C16>F8<C8","%L3C1"
  33. 1310 FOR I=0 TO 1
  34. 1320 PLAY H1$,FA1$,FB1$,FC1$,"C<A>",,"E1&",DM1$
  35. 1330 PLAY H1$,FA1$,FB1$,FC1$,"C<E>",,"E1",DM1$
  36. 1340 PLAY H1$,FA2$,FB2$,FC2$,"C<A>",,"C1&",DM1$
  37. 1350 PLAY H1$,FA2$,FB2$,FC2$,"C<E",,"C1","C>F<C8C16C16>F8<C8"
  38. 1360 PLAY H1$,FA1$,FB1$,FC1$,"AF",,"E1&",DM1$
  39. 1370 PLAY H1$,FA1$,FB1$,FC1$,"GC",,"E1",DM1$
  40. 1380 IF I THEN 1410
  41. 1390 PLAY H1$,FA2$,FB2$,FC2$,"AF",,"C1&",DM1$
  42. 1400 PLAY H1$,FA2$,FB2$,FC2$,"G1>",,"C1","C>F<C8>F16F16F<"
  43. 1410 NEXT
  44. 1420 PLAY H1$,FA2$,FB2$,FC2$,"AB",,"C1&",DM1$
  45. 1430 PLAY H1$,FA2$,FB2$,FC2$,">C1",,"C1","C>F<C8>F16F16F<"
  46. 1440 PLAY H1$,"<A1&","F1&","D1&",,,"D1&","CCCC"
  47. 1450 IF R THEN DMX$="CRL8C>FF16F16F<" ELSE DMX$="CRC8C16C16>F8<C8"
  48. 1460 PLAY "R1","A1>","F1","D1","@119O4",FMF$,"D1",DMX$,"%L3C1"
  49. 1470 IF R THEN 1550
  50. 1480 DMX$=DM2$
  51. 1490 FOR I=0 TO 1
  52. 1500 PLAY H2$,"O3L8A1","O3L8F#1","O3L8D1","L8A2&AG#AB","A2&AG#AB","Q5A8.A>Q7A8<Q5AAR2",DM2$
  53. 1510 PLAY H2$,"A1","F#1","C#1","A2&AG#AB","A2&AG#AB","F#8.F#>Q7F#8<Q5F#F#R2",DM2$
  54. 1520 PLAY H2$,"G#1","E1","C#1",">C#2&C#DC#<B",">C#2&C#DC#<B","G#8.G#>Q7G#8<Q5G#G#R2",DM2$
  55. 1530 PLAY H2$,"A1","F#1","C#1","Q7A1Q8","Q7A1Q8","F#8.F#>Q7F#8<Q5F#F#R2",DMX$
  56. 1540 DMX$="C8.C>F4<V12C32C32CCC>F8<CC":NEXT
  57. 1550 DMX$=DM3$
  58. 1560 FOR I=0 TO 1
  59. 1570 PLAY H1$,"L8O3A4.A&A4AA","L8O3F#4.F#&F#4F#F#","L8O3D4.D&D4DD","L8A2&AG#AB","A2&AG#AB","Q5AA8A>Q7A8<Q5AAR4A>Q7A<Q5A8",DM3$
  60. 1580 PLAY H1$,"A4.A&A4AA","F#4.F#&F#4F#F#","C#4.C#&C#4C#C#","A2&AG#AB","A2&AG#AB","Q5F#F#8F#>Q7F#8<Q5F#F#R4F#>Q7F#<Q5F#8",DM3$
  61. 1590 PLAY H1$,"G#4.G#&G#4G#G#","E4.E&E4EE","C#4.C#&C#4C#C#",">C#2&C#DC#<B",">C#2&C#DC#<B","Q5G#G#8G#>Q7G#8<Q5G#G#R4G#>Q7G#<Q5G#8",DM3$
  62. 1600 PLAY H1$,"A4.A&A4AA","F#4.F#&F#4F#F#","C#4.C#&C#4C#C#","Q7A1Q8","Q7A1Q8","Q5F#F#8F#>Q7F#8<Q5F#F#R4F#>Q7F#<Q5F#8",DMX$
  63. 1610 DMX$="C8.C>]F8[<CCC32C32CCC>]FFFF[<":NEXT
  64. 1620 FOR I=0 TO 1
  65. 1630 PLAY H2$,"O3B1","O3G#1","O3D1","B2&BAB>C#<","B2&BAB>C#<","G#4C#8G#G#R2",DM2$
  66. 1640 PLAY H2$,"B1","F#1","D1","B2&BAB>C#","B2&BAB>C#","F#4<B8>F#F#R2",DM2$
  67. 1650 PLAY H2$,"A1","F#1","C#1","D4.C#<B4.A>","D4.C#<B4.A>","D4C#8DDR2",DM2$
  68. 1660 IF I THEN 1680
  69. 1670 PLAY H2$,"G#1","E1","C#1","C#1<","C#1<","C#4C#8C#C#R4C#C#>Q7C#8<Q5",DM2$
  70. 1680 NEXT
  71. 1690 PLAY H2$,"G#1","E1","C#1","C#1","C#1","C#4C#8C#C#R4C#C#>Q7C#8<Q5",DM2$
  72. 1700 PLAY H2$,"G#1","D1","<B1>","D1","D1","D8.D>Q7D<Q5DRDRDRD>Q7D8R8<Q5",DM3$
  73. 1710 PLAY H2$,"G1","D#1","C1","Q7D#1Q8","Q7D#1Q8","D#8.D#>Q7D#<Q5D#RD#RD#RD#>Q7D#8R8<Q5",DM3$
  74. 1720 PLAY H2$,"A1","E1","C#1","E1&","E1&","E8.E>Q7E<Q5ERERERE>Q7E8R8<Q5",DM3$
  75. 1730 PLAY H2$,"L8A[[[[[[A]A]A]A]A]A]A","L8E[[[[[[E]E]E]E]E]E]E","L8C#[[[[[[C#]C#]C#]C#]C#]C#]C#","Q7E1Q8","Q7E1Q8","Q7E2Q5L8EEEE","L8C>[[[[[F]]F]]F]]FF[>L16%L6B%CF%R6C8%C<<"
  76. 1740 DMX$="L4C>F<L8C>FFF<":FOR I=0 TO 1
  77. 1750 PLAY H1$,"O4EE4E4E4E","O3BB4B4B4B","O3G#G#4G#4G#4G#","O5E2&EF#G#A","O6E2&EF#G#A","EE4E4E4E",DM1$,"%L3C1"
  78. 1760 PLAY H1$,"EE4E4E4E","AA4A4A4A","F#F#4F#4F#4F#","E2&EEDC#","E2&EEDC#","EE4E4E4E",DM1$
  79. 1770 PLAY H1$,"DD4D4D4D","G#G#4G#4G#4G#","EE4E4E4E","D2&DE4D","D2&DE4D","DD4D4D4D",DM1$
  80. 1780 PLAY H1$,"EE4E4E4E","AA4A4A4A","C#C#4C#4C#4C#","C#4<A4>C#E4.","C#4<A4>C#E4.","EE4E4E4E",DM1$
  81. 1790 PLAY H1$,"F#F#4F#4F#4F#","BB4B4B4B","G#G#4G#4G#4G#","F#2&F#G#4A","F#2&F#G#4A","F#F#4F#4F#4F#",DM1$
  82. 1800 PLAY H1$,"EE4E4E4E","AA4A4A4A","F#F#4F#4F#4F#","E2&EF#G#A","E2&EF#G#A","EE4E4E4E",DM1$
  83. 1810 PLAY H1$,"DD4D4D4D","G#G#4G#4G#4G#","EE4E4E4E","B2&BA4G#","B2&BA4G#","DD4D4D4D",DM1$
  84. 1820 IF R THEN 2010
  85. 1830 PLAY H1$,"EE4E4E4E","AA4A4A4A","C#C#4C#4C#4C#","Q7A1Q8","Q7A1Q8","EE4E4E4E",DMX$
  86. 1840 DMX$="C>F<C>>L16%L6B%CF%R6C8%C<<":NEXT
  87. 1850 R=1:PLAY ,"L16O4","L16O4","L16O4",FMP$,,"O2Q8L16","V10"
  88. 1860 PLAY H1$,"<A1&","F1&","D1&",,,"D1&","L4CCCC","%R3C1"
  89. 1870 PLAY "R1","A1>","F1","D1",,,"D2.Q5]]D>Q7D8<Q5D","CRC8C16C16>F8<C8","%L3C1"
  90. 1880 '
  91. 1890 PLAY H1$,FA1$,FB1$,FC1$,,,"E8.E>Q7E<Q5ERERERE>Q7E8<Q5R8",DM1$
  92. 1900 PLAY H1$,FA1$,FB1$,FC1$,,,"D8.D>Q7D<Q5DRDRDRD>Q7D8<Q5R8",DM1$
  93. 1910 PLAY H1$,FA2$,FB2$,FC2$,,,"C8.C>Q7C<Q5CRCRCRC>Q7C8<Q5R8",DM1$
  94. 1920 PLAY H1$,FA2$,FB2$,FC2$,,,"<B2.>C>Q7C8<Q5C","C>F<C8C16C16>F8<C8"
  95. 1930 PLAY H1$,FA1$,FB1$,FC1$,,,"E8.E>Q7E<Q5ERERERE>Q7E8<Q5R8",DM1$
  96. 1940 PLAY H1$,FA1$,FB1$,FC1$,,,"D8.D>Q7D<Q5DRDRDRD>Q7D8<Q5R8",DM1$
  97. 1950 PLAY H1$,FA2$,FB2$,FC2$,,,"C8.C>Q7C<Q5CRCRCRC>Q7C8<Q5R8",DM1$
  98. 1960 PLAY H1$,FA2$,FB2$,FC2$,,,"Q7<B2.>C4Q8","C>F<C8C16C16>F8<C8"
  99. 1970 PLAY H1$,"<A1&","F1&","D1&",,,"[[D1&","L4CCCC","%R3C1"
  100. 1980 PLAY "R1","A1>","F1","D1",,,"D1","CRC8C16C16>F8<C8","%L3C1"
  101. 1990 GO TO 1310
  102. 2000 '
  103. 2010 PLAY H1$,"EE4E4E4E","AA4A4A4A","C#C#4C#4C#4C#","Q7A1Q8","Q7A1Q8","EE4E4E4E",DMX$,,"@6V6O5%R4R2.<AB>C#D","@6V5O5%L4U-60R2.<AB>C#D","@6V6O4%L6","@6V4O4U-60%R6"
  104. 2020 DMX$="L4C>F<L8C>FFF<":FOR I=0 TO 1
  105. 2030 PLAY H1$,"O4EE4E4E4E","O3BB4B4B4B","O3G#G#4G#4G#4G#","O5E2&EF#G#A","O6E2&EF#G#A","EE4E4E4E",DM1$,"%L3C1","E1","E1","B1","B1"
  106. 2040 PLAY H1$,"EE4E4E4E","AA4A4A4A","F#F#4F#4F#4F#","E2&EEDC#","E2&EEDC#","EE4E4E4E",DM1$,,"E1","E1","A1","A1"
  107. 2050 PLAY H1$,"DD4D4D4D","G#G#4G#4G#4G#","EE4E4E4E","D2&DE4D","D2&DE4D","DD4D4D4D",DM1$,,"D1","D1","G#1","G#1"
  108. 2060 PLAY H1$,"EE4E4E4E","AA4A4A4A","C#C#4C#4C#4C#","C#4<A4>C#E4.","C#4<A4>C#E4.","EE4E4E4E",DM1$,,"E1","E1","A1","A1"
  109. 2070 PLAY H1$,"F#F#4F#4F#4F#","BB4B4B4B","G#G#4G#4G#4G#","F#2&F#G#4A","F#2&F#G#4A","F#F#4F#4F#4F#",DM1$,,"F#1","F#1","B1","B1"
  110. 2080 PLAY H1$,"EE4E4E4E","AA4A4A4A","F#F#4F#4F#4F#","E2&EF#G#A","E2&EF#G#A","EE4E4E4E",DM1$,,"E1","E1","A1","A1"
  111. 2090 IF I THEN 2120
  112. 2100 PLAY H1$,"DD4D4D4D","G#G#4G#4G#4G#","EE4E4E4E","B2&B>C#4D","B2&B>C#4D","DD4D4D4D",DM1$,,"D1","D1","G#1","G#1"
  113. 2110 PLAY H1$,"EE4E4E4E","AA4A4A4A","C#C#4C#4C#4C#","Q7C#1Q8<","Q7C#1Q8<","EE4E4E4E",DMX$,,"E1","E1","A1","A1"
  114. 2120 DMX$="C>F<C>>L16%L6B%CF%R6C8%C<<":NEXT
  115. 2130 PLAY H1$,"DD4D4D4D","G#G#4G#4G#4G#","EE4E4E4E","B2&BA4G#","B2&BA4G#","DD4D4D4D",DM1$,,"D1","D1","G#1","G#1"
  116. 2140 PLAY H1$,"EE4E4E4E","AA4A4A4A","C#C#4C#4C#4C#","Q7A1Q8","Q7A1Q8","EE4E4E4E",DMX$,,"E1","E1","A2.]G#4","A2.]G#4"
  117. 2150 PLAY ,"E1&E2.R4","A1&A2.R4","C#1&C#2.R4",,,"E1&E2.R4","C","C1.R2","E1&E2.R4","E1&E2.R4","A1&A2.R4","A1&A2.R4"
  118. 2160 GOTO 65000
  119. 2170 *TITLE
  120. 2180 CLS
  121. 2190 FOR I=0 TO 12
  122. 2200 LINE (0,300+I^2!)-(639,300+I^2!),PSET,1
  123. 2210 NEXT
  124. 2220 SYMBOL(260,460),"Ｍｏｏｎ　ｏｎ　Ｌａｋｅ",1.2!,1.2!,7,,PSET,1
  125. 2230 SYMBOL(520,465),"Ｂｙ　菅井つばめ　（Ｃ）",.8!,.8!,7,,PSET
  126. 2240 RETURN
  127. 65000 BGM 0:PLAY "R64":BGM 1
  128. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  129.